home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / palmpc.dir / 00301.ls < prev    next >
Encoding:
Text File  |  1996-03-01  |  1.1 KB  |  54 lines
  1. on stopCover
  2. end
  3.  
  4. on initRearWindow
  5.   global rwObj, gMaxColors, deskTopPattern, black
  6.   set x to the colorDepth
  7.   fillWithIndexColor()
  8. end
  9.  
  10. on releaseRearWindow
  11.   global rwObj
  12.   if objectp(rwObj) then
  13.     rwObj(mdispose)
  14.   end if
  15. end
  16.  
  17. on UnCoverDesktop
  18.   global rwObj
  19.   if objectp(rwObj) then
  20.     rwObj(mdispose)
  21.   end if
  22.   unLoad()
  23. end
  24.  
  25. on makeObjIfNeeded
  26.   global rwObj
  27.   if not objectp(rwObj) then
  28.     set rwObj to RearWindow(mnew, "M")
  29.     if value(rwObj) < 0 then
  30.       alert("System error" && rwObj && "trying to create the RearWindow object in RAM (multiple-monitor config).")
  31.       stopMovie()
  32.       exit
  33.     end if
  34.     if the freeBlock < rwObj(mGetMemoryNeeded) then
  35.       if objectp(rwObj) then
  36.         rwObj(mdispose)
  37.         set rwObj to RearWindow(mnew, "S")
  38.       end if
  39.       if value(rwObj) < 0 then
  40.         alert("System error" && rwObj && "trying to create the RearWindow object in RAM (single-monitor config).")
  41.         stopMovie()
  42.         exit
  43.       end if
  44.     end if
  45.   end if
  46. end
  47.  
  48. on fillWithIndexColor
  49.   global rwObj
  50.   makeObjIfNeeded()
  51.   set patVar to 255
  52.   rwObj(mIndexColorToWindow, patVar)
  53. end
  54.